home *** CD-ROM | disk | FTP | other *** search
/ Champak 114 / Vol 114.iso / games / y2k_tetr.swf / scripts / DefineSprite_42 / frame_2 / DoAction.as
Encoding:
Text File  |  2010-08-12  |  1.4 KB  |  24 lines
  1. result2 = "nook";
  2. tek_y = getProperty("../figure", _Y) + "5";
  3. tek_ym = eval("..:max_y") * "10";
  4. tposx = (getProperty("../figure", _X) + getProperty("../figure/k1", _X) - "5") / "10" + "1";
  5. tposy = (getProperty("../figure", _Y) + getProperty("../figure/k1", _Y) + "5") / "10" + "1";
  6. cell1 = eval("..:dim" add tposx add "_" add tposy);
  7. tposx = (getProperty("../figure", _X) + getProperty("../figure/k2", _X) - "5") / "10" + "1";
  8. tposy = (getProperty("../figure", _Y) + getProperty("../figure/k2", _Y) + "5") / "10" + "1";
  9. cell2 = eval("..:dim" add tposx add "_" add tposy);
  10. tposx = (getProperty("../figure", _X) + getProperty("../figure/k3", _X) - "5") / "10" + "1";
  11. tposy = (getProperty("../figure", _Y) + getProperty("../figure/k3", _Y) + "5") / "10" + "1";
  12. cell3 = eval("..:dim" add tposx add "_" add tposy);
  13. tposx = (getProperty("../figure", _X) + getProperty("../figure/k4", _X) - "5") / "10" + "1";
  14. tposy = (getProperty("../figure", _Y) + getProperty("../figure/k4", _Y) + "5") / "10" + "1";
  15. cell4 = eval("..:dim" add tposx add "_" add tposy);
  16. if(tek_y + getProperty("../figure/k1", _Y) < tek_ym and tek_y + getProperty("../figure/k2", _Y) < tek_ym and tek_y + getProperty("../figure/k3", _Y) < tek_ym and tek_y + getProperty("../figure/k4", _Y) < tek_ym)
  17. {
  18.    if(cell1 eq "" and cell2 eq "" and cell3 eq "" and cell4 eq "")
  19.    {
  20.       result2 = "ok";
  21.    }
  22. }
  23. stop();
  24.